home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d10 / ps1410.arc / CAL1.BI < prev    next >
Text File  |  1990-10-31  |  39KB  |  916 lines
  1.     '=========================================================================
  2.     ' Personal Calendar (PC) Program
  3.     '  Copyright (c) 1985-1990, Paul Munoz-Colman.  All Rights Reserved.
  4.     '    Version 14.10
  5.     '     31 Oct 1990
  6.     '    Shareware $25
  7.     '=========================================================================
  8.     '            DOS File CAL1.BI
  9.     '  INCLUDE File for Array and Common Variable Definitions for CALx.BAS
  10.     '=========================================================================
  11.     '  Written For IBM PCs & Compatibles Under MS DOS 3.30 on a Northgate 486
  12.     '   Compiled By Microsoft Professional BASIC 7.10, Linker Version 5.10
  13.     '=========================================================================
  14.     '  Note -- Tabs in the source file are in positions 6,11,16,21,26,...
  15.     '========================================================================
  16.     DEFINT A-Z
  17.     OPTION BASE 1
  18.     '=========================================================================
  19.     '  $DYNAMIC
  20.     '    Dynamic Arrays (DIM'd in Main Module Due to Large Size)
  21.     COMMON SHARED WindowBuffer()            ' MhWind Screen Buffer
  22.     '=========================================================================
  23.     '  Declare all other variables as
  24.     '  $STATIC
  25.     '=========================================================================
  26.     DECLARE SUB ApptToMenu (EntryPoint)
  27.     DECLARE FUNCTION ASCIIN$ (ASCIIZString$)
  28.     DECLARE FUNCTION ASCIIZ$ (ASCIIString$)
  29.     DECLARE SUB AutoStart ()
  30.     DECLARE SUB BigChars (CharRow%, CharColumn%, CharLin$)
  31.     DECLARE SUB BlankError ()
  32.     DECLARE SUB BlankFatal ()
  33.     DECLARE FUNCTION BlankFill$ (ToBlankFill$)
  34.     DECLARE SUB BoxDraw (BoxType, BoxTop, BoxBottom, BoxLeft, BoxRight)
  35.     DECLARE SUB BuildMenuDate(BuildEventDate$)
  36.     DECLARE SUB BuildMenuLine ()
  37.     DECLARE SUB CheckDate (DateToValidate$)
  38.     DECLARE SUB ClearLast3 ()
  39.     DECLARE SUB ClearLast4 ()
  40.     DECLARE SUB ClearOverdueTable ()
  41.     DECLARE SUB ClearScreenNormal (ClearTimerDesired)
  42.     DECLARE SUB CloseFiles ()
  43.     DECLARE SUB ColorDecode (CColorAttribute)
  44.     DECLARE SUB CombineDateTime ()
  45.     DECLARE SUB CompressApptFile (ShrinkNumber)
  46.     DECLARE SUB ComputePendingValue (AlarmValue#, PendingValue#)
  47.     DECLARE SUB ControlledInput (CBoxRow, CBoxColumn, CMessageRow, _
  48.         CMessageColumn, CLength, CMessageText$, CInputResponse$, _
  49.         NumlockRequest, CFilenameShow, CScreenBottomsShow, CHoldAtEnd)
  50.     DECLARE SUB Credits (WhichLine)
  51.     DECLARE SUB DayDate (DatetoIndex$)
  52.     DECLARE FUNCTION DirectoryExist(DirectoryName$)
  53.     DECLARE SUB DirectReturnCheck ()
  54.     DECLARE SUB DisplayApptFilename ()
  55.     DECLARE SUB DOSBIOSServices ()
  56.     DECLARE SUB DoShell (ShellCommand$)
  57.     DECLARE SUB DOSShell (DOSEntry)
  58.     DECLARE SUB EndItAll ()
  59.     DECLARE SUB ErrorHandler ()
  60.     DECLARE SUB EscapeLine ()
  61.     DECLARE SUB EscapeLineDelete ()
  62.     DECLARE SUB EventErrorMessage ()
  63.     DECLARE FUNCTION FileExist (ExistFilename$)
  64.     DECLARE SUB FileFormat ()
  65.     DECLARE SUB FileList ()
  66.     DECLARE SUB FileListGet ()
  67.     DECLARE SUB GenerateGreeting (GrLines)
  68.     DECLARE SUB GenGreetingScreen1 ()
  69.     DECLARE SUB GetApptRecord (Pointer)
  70.     DECLARE SUB GetFilenameLength ()
  71.     DECLARE SUB GetOptions ()
  72.     DECLARE SUB Help ()
  73.     DECLARE SUB IncrementDate (DateToIncrement$)
  74.     DECLARE SUB InitPrinter ()
  75.     DECLARE FUNCTION InString (Lin1$, Lin2$)
  76.     DECLARE SUB Instructions ()
  77.     DECLARE SUB KeyStuff (KeyFunction)
  78.     DECLARE SUB KillAFile (KillFilename$)
  79.     DECLARE SUB Kolors (WhichSetting)
  80.     DECLARE FUNCTION Leap (LeapInput)
  81.     DECLARE SUB LprintString (PrintString$, HoldPrint)
  82.     DECLARE SUB MainSub (MainEntryPoint)
  83.     DECLARE SUB MajorBeeper ()
  84.     DECLARE SUB MenuDriver (MMenuSize, MMenuChoice, MMenuRow, MReqMenuColumn, _
  85.       MMenuSingleLine, MMenuSpecialExit, MScreenBottomsShow, MFilenameShow)
  86.     DECLARE SUB Mh80x25 ()
  87.     DECLARE SUB Mh80x43 (Ecode43%)
  88.     DECLARE SUB Mh80x50 (Ecode50%)
  89.     DECLARE SUB MhBackwardInstr (Pointer%, Start%, Lin1$, Lin2$)
  90.     DECLARE SUB MhBox (InsideColr%, Box%, BoxColr%, Page%, TopRow%, _
  91.         LeftColumn%, BottomRow%, RightColumn%)
  92.     DECLARE SUB MhChars (CharsPage%, CharsRow%, CharsColumn%, ChColr%, ChLin$)
  93.     DECLARE SUB MhColorAttribute (Colr%, Foreground%, BackGround%)
  94.     DECLARE SUB MhDir (Operation%, Drive%, Directory$, DirEcode%)
  95.     DECLARE SUB MhDirExist (DirName$, DirEcode%)
  96.     DECLARE SUB MhDisk (Drive%, Directory$, FreeDisk&, TotalSpace&, DiskEcode%)
  97.     DECLARE SUB MhDisplay (DispMode%, DispColumns%, DispRows%, Memory%, _
  98.         DisplayType%)
  99.     DECLARE SUB MhDos2 (DosEcode%, IntNo%, ES%, SI%, DI%, AH%, AL%, BH%, BL%, _
  100.         CH%, CL%, DH%, DL%)
  101.     DECLARE SUB MhDver (Major%, Minor%)
  102.     DECLARE SUB MhFileExist (SomeFilename$, ExistEcode%)
  103.     DECLARE SUB MhGetKbStatus1 (IInsertstate%, CCaps%, NNum%, _
  104.         SScroll%, AAlt%, CCtrl%, LLeft%, RRight%)
  105.     DECLARE SUB MhGetKbStatus2 (IInsertpressing%, CCaps%, NNum%, _
  106.         SScroll%, AAlt%, CCtrl%, LLeft%, RRight%)
  107.     DECLARE SUB MhHexToInt (HHexString$, EBytes2%)
  108.     DECLARE SUB MhInstat (KKshift%, KKscan%, KKascii%)
  109.     DECLARE SUB MhInstr (Pointer%, Start%, Lin1$, Lin2$)
  110.     DECLARE SUB MhIntToString (Lin$, Number%)
  111.     DECLARE SUB MhKill (SomeFilename$, KillEcode%)
  112.     DECLARE SUB MhLprint (PrinterNumber%, Lin$, CharsPrinted%, LprintEcode%)
  113.     DECLARE SUB MhLset (Destin$, Source$)
  114.     DECLARE SUB MhMidString (Destin$, DestinMid%, Chars%, Source$, SourceMid%)
  115.     DECLARE SUB MhNotBackwardInstr (Pointer%, Start%, Lin$, Char%)
  116.     DECLARE SUB MhNotInstr (Pointer%, Start%, Lin$, Char%)
  117.     DECLARE SUB MhRename (OldName$, NewName$, RenameEcode%)
  118.     DECLARE SUB MhScr (Lin$, Page%, Row%, Column%, Colr%)
  119.     DECLARE SUB MhSetKbStatus (Insertset%, CCaps%, NNum%, SScroll%)
  120.     DECLARE SUB MhString (Lin$, FillChar%)
  121.     DECLARE SUB MhToggleBits (Lin$, Value%)
  122.     DECLARE SUB MhWind (Colr%, DDtaseg%, Operation%, Page%, TopRow%, _
  123.         LeftColumn%, BottomRow%, RightColumn%,BBufferNumber%, WWindBytes%, _
  124.         WWindEcode%)
  125.     DECLARE SUB MinorBeeper ()
  126.     DECLARE SUB MoveApptRecords (FileStart, MoveStart, MoveEnd, MoveIncr, _
  127.         MoveOrigin, MoveTarget, MoveFlag, BlankFlag, BlankAt)
  128.     DECLARE SUB Myd2 (Destin$, DestinStart%, Chars%, Source$)
  129.     DECLARE SUB NotesHistory (NotesorHistory$)
  130.     DECLARE FUNCTION NumberError (NumberTest$)
  131.     DECLARE SUB OpenAppts ()
  132.     DECLARE SUB Options ()
  133.     DECLARE SUB PageEject ()
  134.     DECLARE SUB PlayAlarmWarning (WarningSet)
  135.     DECLARE SUB PlayStuff (PlayString$)
  136.     DECLARE SUB PopLine ()
  137.     DECLARE SUB PopLineDelete ()
  138.     DECLARE SUB PoppedOverCheck ()
  139.     DECLARE SUB PrepareforError ()
  140.     DECLARE SUB PrepareforFatal ()
  141.     DECLARE SUB PrepareforMessage ()
  142.     DECLARE SUB PrintCalendar ()
  143.     DECLARE SUB PrintCopy ()
  144.     DECLARE SUB ProcessAlarm ()
  145.     DECLARE SUB PutApptRecord (Pointer)
  146.     DECLARE SUB QuickSort (Low, High)
  147.     DECLARE SUB QuitLine ()
  148.     DECLARE SUB QuitLineDelete ()
  149.     DECLARE FUNCTION RandInt% (Lower, Upper)
  150.     DECLARE SUB ReadCalauto ()
  151.     DECLARE SUB ReadCalautoGet ()
  152.     DECLARE SUB ReadCalDOS ()
  153.     DECLARE SUB ReadCalDOSGet ()
  154.     DECLARE SUB ReadCalexcl ()
  155.     DECLARE SUB ReadCalexclGet ()
  156.     DECLARE SUB ReadCalfig ()
  157.     DECLARE SUB ReadCalfigGet ()
  158.     DECLARE SUB ReadCalinit (EntryPoint)
  159.     DECLARE SUB ReadCalmusic ()
  160.     DECLARE SUB ReadCalmusicGet ()
  161.     DECLARE SUB ReadCalres ()
  162.     DECLARE SUB ReadCalresGet ()
  163.     DECLARE SUB ReadCalser ()
  164.     DECLARE SUB RefreshEventsNotes ()
  165.     DECLARE SUB RepackApptRecord ()
  166.     DECLARE SUB RestoreCalKeyState ()
  167.     DECLARE SUB RestoreDOSKeyState ()
  168.     DECLARE SUB ReturnLine ()
  169.     DECLARE SUB ReturnLineDelete ()
  170.     DECLARE SUB SaveCurrentDirectory (EntryPoint)
  171.     DECLARE SUB SaveDOSKeyState ()
  172.     DECLARE SUB ScreenBottoms ()
  173.     DECLARE SUB ScreenBottomsDelete ()
  174.     DECLARE SUB SequenceEventsTable ()
  175.     DECLARE SUB SetArrays ()
  176.     DECLARE SUB SetColors ()
  177.     DECLARE SUB SetCurrentDirectory (EntryPoint)
  178.     DECLARE SUB SetDateTime ()
  179.     DECLARE SUB SetDateTimeGet (WhichType, DateTimeChange$)
  180.     DECLARE SUB SetOptions ()
  181.     DECLARE SUB SetVideoPage (Why)
  182.     DECLARE SUB SetVideoMode (Why)
  183.     DECLARE SUB ShowErase (EKolor, EScreenRow, EScreenColumn, _
  184.         EraseFirst, ShowString$)
  185.     DECLARE SUB ShowIt (IKolor,ShowRow, ShowColumn, ShowString$)
  186.     DECLARE SUB ShowMult (MKolor, ScreenMultRow, MScreenColumn, EraseFirst, _
  187.         ScreenMultLines)
  188.     DECLARE SUB ShowOverduePage ()
  189.     DECLARE SUB Snooze (Secs!)
  190.     DECLARE SUB SrAutoScreenSave (FileName$, Ecode%)
  191.     DECLARE SUB SrCancelAutoScreenSave ()
  192.     DECLARE SUB SrCancelShell ()
  193.     DECLARE SUB SrCancelUseAnyKey ()
  194.     DECLARE SUB SrCheckEMS (Ecode%)
  195.     DECLARE SUB SrForceFile0 ()
  196.     DECLARE SUB SrNoSnow ()
  197.     DECLARE FUNCTION SrOverDos% ()
  198.     DECLARE SUB SrPopDown (Kscan%, Kshift%, Ecode%)
  199.     DECLARE SUB SrReleaseMem (Ecode%)
  200.     DECLARE SUB SrReleaseTimeY ()
  201.     DECLARE SUB SrResetHotkey (Kscan%, Kshift%)
  202.     DECLARE SUB SrResidentBatch (CmndLine$, Ecode%)
  203.     DECLARE SUB SrResidentShell (CmndLine$, Ecode%)
  204.     DECLARE FUNCTION SrScreenSaved% ()
  205.     DECLARE SUB SrSetBusyWait (Ticks%)
  206.     DECLARE SUB SrSetCom (Port%, Ecode%)
  207.     DECLARE SUB SrSetDiskSwap (FileName$, Ecode%)
  208.     DECLARE SUB SrSetId (IDName$, IDNumber%, Ecode%)
  209.     DECLARE SUB SrSetPokeChar (Ascii%)
  210.     DECLARE SUB SrSetTimeY (Month%, Day%, Year%, Hour%, Minute%)
  211.     DECLARE SUB SrSetUserMem (Bytes&)
  212.     DECLARE SUB SrSetVideoMode (Mode%)
  213.     DECLARE SUB SrUseErrorTable ()
  214.     DECLARE SUB StayResInitialization (EntryPoint)
  215.     DECLARE SUB StayResKeyShiftList ()
  216.     DECLARE SUB StayResKeyName ()
  217.     DECLARE SUB StayResOptions (OSrAutoOptions)
  218.     DECLARE SUB StayResPopDown ()
  219.     DECLARE FUNCTION Strng$ (RptTimes%, FillChar%)
  220.     DECLARE SUB Titles (NumberofLines)
  221.     DECLARE SUB UnpackApptRecord ()
  222.     DECLARE SUB UpdateClockScreen ()
  223.     DECLARE SUB ValidateEventDate ()
  224.     DECLARE SUB ValidateUser (WhichLine)
  225.     DECLARE SUB VideoMonitorType ()
  226.     DECLARE SUB WindowInit ()
  227.     DECLARE SUB WindowRestore ()
  228.     DECLARE SUB WindowSave ()
  229.     DECLARE SUB WriteCalauto ()
  230.     DECLARE SUB WriteCalDOS ()
  231.     DECLARE SUB WriteCalexcl ()
  232.     DECLARE SUB WriteCalfig ()
  233.     DECLARE SUB WriteCalmusic ()
  234.     DECLARE SUB WriteCalres ()
  235.     DECLARE SUB WritetoHistory ()
  236.     DECLARE SUB YearAdjust (YeartoAdjust, AdjustedYear$)
  237.     DECLARE FUNCTION ZeroFill$ (ToZeroFill$)
  238.     '=========================================================================
  239.       TYPE AlarmType
  240.         Alarm     AS DOUBLE
  241.         Warning     AS DOUBLE
  242.         Sequence     AS INTEGER
  243.      END TYPE
  244.     '=========================================================================
  245.     DIM     Alarms(300)             AS AlarmType,_            
  246.         CalendarColumns(3),_
  247.         CalendarImage(8)        AS STRING*80,_
  248.         CalendarMonths(3),_
  249.         CalendarYears(3),_
  250.         ClockGraphics(3)        AS STRING*63,_
  251.         ColorChoices(8),_
  252.         ColorPairUses$(7),_
  253.         ColorPairTypes$(2),_
  254.         Colors$(16),_
  255.         DateEdit(4),_
  256.         DateEditLimits(4),_
  257.         DayNames$(7),_
  258.         EditInstructions(8,4)    AS STRING*33,_
  259.         EpsonCodes(50),_
  260.         EventInput(4)            AS STRING*47,_
  261.         EventInstructions1(3)    AS STRING*27,_
  262.         EventInstructions2(3)    AS STRING*22,_
  263.         EventNoteSharedIns(3)    AS STRING*31,_
  264.         EventOrder(300),_
  265.         EventWindow(9)            AS STRING*80,_
  266.         ExcludefromHistory$(2),_
  267.         FirstDays(3),_
  268.         FunctionScanCodes(4,10),_
  269.         HotKeyNames$(16),_
  270.         HPIIPCodes(50),_
  271.         I4019Codes(50),_
  272.         IBMCodes(50),_
  273.         JulianDays(12),_
  274.         LightDay(600),_
  275.         MenuColors(20),_
  276.         MenuLines(20)            AS STRING*80,_
  277.         MenuLinesSave$(20),_
  278.         MonthLength(12),_
  279.         MonthNames$(12),_
  280.         NoteInput(4)            AS STRING*47,_ 
  281.         NoteInstructions1(4)    AS STRING*27,_    
  282.         NoteInstructions2(3)    AS STRING*22,_
  283.         PendingEvents(300),_
  284.         PrinterCodes(50),_
  285.         ScreenModes$(20),_    
  286.         ScreenTitles$(5),_
  287.         SoundLevels$(4)
  288.     '=========================================================================
  289.     '  Static Arrays (DIM'd before Common)
  290.     '   Strings
  291.     COMMON SHARED _
  292.         CalendarImage()    AS STRING*80,_     'Calendar Image
  293.         EditInstructions()     AS STRING*33,_     'Edit Instructions
  294.         MenuLines()        AS STRING*80,_     'Menu Text
  295.         MenuLinesSave$(),_            'Menu Text Save
  296.         ClockGraphics()    AS STRING*63,_    ' Graphics for Clock Display
  297.         ColorPairUses$(),_            ' Color Pairs Usage
  298.         ColorPairTypes$(),_            ' Color Pair Type (Foregrnd,Bckgrnd)
  299.         Colors$(),_                ' Names of Colors
  300.         DayNames$(),_                ' Names of Days of the Week
  301.         EventInput() AS STRING*47,_    ' Edit Input Instructions
  302.         EventInstructions1()    AS STRING*27,_    ' Event Instructions 1
  303.         EventInstructions2()    AS STRING*22,_    ' Event Instructions 2
  304.         EventNoteSharedIns()    AS STRING*31,_ ' Event/Note Instructions 3
  305.         EventWindow() AS STRING*80,_    ' Event Window on Clock Screen (speed)
  306.         ExcludefromHistory$(),_        ' Event Texts to Exclude From History
  307.         HotKeyNames$(),_            ' Ctrl/Alt/Shift part of Hot Key Name
  308.         MonthNames$(),_            ' Names of the Months
  309.         NoteInput() AS STRING*47,_    ' Note Editing Instructions
  310.         NoteInstructions1()    AS STRING*27,_    ' Note Instructions 1
  311.         NoteInstructions2()    AS STRING*22,_    ' Note Instructions 2
  312.         ScreenModes$(),_            ' Names of Graphic Screen Modes
  313.         ScreenTitles$(),_            ' Titles For Screens
  314.         SoundLevels$()                ' Names of Sound Choices
  315.     '=========================================================================
  316.     '  Numerics
  317.     COMMON SHARED  _
  318.         Alarms() AS AlarmType,_        ' Numeric Table of Event Date/Times
  319.         CalendarColumns(),_            ' Screen Column for 3 Calendars
  320.         CalendarMonths(),_            ' Months for 3 Calendars
  321.         CalendarYears(),_            ' Years for 3 Calendars
  322.         ColorChoices(),_            ' Color Choices
  323.         DateEdit(),_                ' Numeric Date Parts to Validate
  324.         DateEditLimits(),_            ' Numeric Date Validation Limits
  325.         EpsonCodes(),_                ' WANG Printer Codes Table
  326.         EventOrder(),_                ' Sorted Order of Events
  327.         FirstDays(),_                ' 1st Days of Week for Calendars
  328.         FunctionScanCodes(),_        ' Scan Codes for F1 to F12
  329.         HPIIPCodes(),_                ' HP IIP/III Laser Printer Codes Table
  330.         I4019Codes(),_                ' IBM 4019 Laser Printer Codes Table
  331.         IBMCodes(),_                ' IBM Color Printer Codes Table
  332.         JulianDays(),_                ' Days per Month Cumulative
  333.         LightDay(),_                ' Calendar Emphasis Day X/Y Pairs
  334.         MenuColors(),_                ' Special Menu Colors Array
  335.         MonthLength(),_            ' Number of Days in Each Month
  336.         PrinterCodes(),_            ' Chosen Printer Codes Table
  337.         PendingEvents()            ' Event Numbers to Warn (Blink) For
  338.     '=========================================================================
  339.     ' Non-Array Common Variables
  340.     COMMON SHARED  _
  341.         AH%,_                    ' MhDos2 variable
  342.         AL%,_                    ' MhDos2 variable
  343.         Alarm$,_                    ' Default Alarm Music
  344.         AlarmMusicPlayed,_            ' Alarm Music Has Been Played
  345.         AllowInsertMode,_            ' Disable(no)/Enable(yes) Insert Mode
  346.         AllowPopDateTime,_            ' Pop Up if Something There to Pop On
  347.         AllowPopDateTimeSave,_        ' Save of auto pop if disabling
  348.         Alt,_                    ' State of Alt Key
  349.         ApptBuffer$,_                ' I/O Buffer for Appointment File
  350.         ApptFile,_                ' Appointment File In-Use Indicator
  351.         ApptFilename$,_            ' Name of Appointment File
  352.         ApptFilenameOverdue$,_        ' Name of Appt File's Overdue File
  353.         ApptMasterRec$,_            ' Password/Options Record of Appt File
  354.         ApptPassword$,_            ' Appointment File Password
  355.         AutoMode$,_                ' Autostart Mode Indicator External
  356.         AutoStarted,_                ' Whether Automatic Startup Happening
  357.         AutostartMode,_            ' Autostart Mode Internal Numeric
  358.         AvailablePrinters$,_        ' String with Printer Choices
  359.         AvailableStringSpace&,_        ' Last value of Fre("")
  360.         BH%,_                    ' MhDos2 variable
  361.         BL%,_                    ' MhDos2 variable
  362.         Blank0$,_                    ' Null String
  363.         Blank1$,_                    ' 1 Blank Space
  364.         Blank2$,_                    ' 2 Blank Spaces
  365.         Blank3$,_                    ' 3 Blank Spaces
  366.         Blank4$,_                    ' 4 Blank Spaces
  367.         Blank8$,_                    ' 8 Blank Spaces
  368.         Blank12$,_                ' 12 Blank Spaces
  369.         Blank80$,_                ' 80 Blank Spaces
  370.         BoxColumn,_                ' Column for Controlled Input
  371.         BoxRow,_                    ' Row for Controlled Input
  372.         BoxWidth,_                ' Menu Box Size (-2)
  373.         Bsp,_                    ' Backspace Key
  374.         Buffer80$,_                ' Help File I/O Buffer
  375.         CH%,_                    ' MhDos2 variable
  376.         CL%,_                    ' MhDos2 variable
  377.         CalendarDate$,_            ' Requested Date for Center Calendar
  378.         CalendarDay,_                ' Numeric Day for Calendar
  379.         CalendarMonth,_            ' Numeric Month for Calendar
  380.         CalendarStartColumn,_        ' Left Column for Calendar Display
  381.         CalendarStartRow,_            ' First Row for Calendar Display
  382.         CalendarYear,_                ' Numeric Year for Calendar
  383.         CalMode,_                    ' PC's Video Mode (mono or color text)
  384.         Caps,_                    ' State of Caps from Mh Key Tester
  385.         CapsDOS,_                    ' State of Caps in DOS
  386.         CapsHold,_                ' Caps Lock Previous State
  387.         Chb,_                    ' Emphasis Color Background
  388.         Chf,_                    ' Emphasis Color Foreground
  389.         Chime$,_                    ' Default Music for Hourly Chimes
  390.         ChimeCount,_
  391.         Chold,_                    ' Cursor Column Position
  392.         Cib,_                    ' Mono Emphasis Color Background
  393.         Cif,_                    ' Mono Emphasis Color Foreground
  394.         Cl1b,_                    ' 1st Normal Color Background
  395.         Cl1f,_                    ' 1st Normal Color Foreground
  396.         Cl2b,_                    ' 2nd Normal Color Background
  397.         Cl2f,_                    ' 2nd Normal Color Foreground
  398.         Cl3b,_                    ' 3rd Normal Color Background
  399.         Cl3f,_                    ' 3rd Normal Color Foreground
  400.         Cl4b,_                    ' 4th Normal Color Background
  401.         Cl4f,_                    ' 4th Normal Color Foreground
  402.         Cl5b,_                    ' 5th Normal Color Background
  403.         Cl5f,_                    ' 5th Normal Color Foreground
  404.         Cl6b,_                    ' 6th Normal Color Background
  405.         Cl6f,_                    ' 6th Normal Color Foreground
  406.         ClockColumn,_
  407.         ClockPositionGraphic$,_
  408.         ClockSeparatorGraphic$,_
  409.         ClockRow,_                ' Location of Clock Row
  410.         ClockScreen,_                ' On Clock Screen Indicator
  411.         ClockScreenPrint,_            ' Print While On Clock Screen Indicator
  412.         ColorAttribute,_            ' Current Mh Color Attribute
  413.         ColorBackground,_            ' Current Background Color
  414.         ColorCRT,_                ' Color Display Indicator
  415.         ColorForeground,_            ' Current Foreground Color
  416.         Column1,_                    ' Position of Instructions Column 1
  417.         Column2,_                    ' Position of Instructions Column 2
  418.         Column3,_                    ' Position of Instructions Column 3
  419.         Column4,_                    ' Position of Instructions Column 4
  420.         Columns,_                    ' Size of Calendar (columns)
  421.         CombinedDateTime#,_            ' 12-digit Date/Time of Unpacked Event
  422.         CopyFilename$,_            ' ASCII Filename for Copy
  423.         CountedDay&,_                ' Number of Days Since 0000 For Date
  424.         Ctrl,_                    ' State of Control Key
  425.         CurrentDateTime#,_            ' Numeric Form of Date and Time
  426.         CurrentDateTime$,_
  427.         CurrentDay,_
  428.         CurrentDayOfWeek,_
  429.         CurrentEvent,_                ' Current Event Item
  430.         CurrentEventLine$,_            ' Current Event (Menu Format)
  431.         CurrentEventRecord$,_        ' Current Event (File Format)
  432.         CurrentHistory,_            ' Current History Line Item
  433.         CurrentHour,_                ' Current Hour
  434.         CurrentHourPosition,_
  435.         CurrentMinute,_            ' Current Minute
  436.         CurrentMonth,_
  437.         CurrentNote,_                ' Current Note
  438.         CurrentNoteHist,_            ' Current Note/History Record
  439.         CurrentQuarter,_
  440.         CurrentSecond,_            ' Current Second
  441.         CurrentStackSize&,_            ' Size of the Stack
  442.         CurrentTime$,_                ' Current Time (HHMMSS)
  443.         CurrentVideoMode,_            ' Present screen mode
  444.         CurrentVideoPage,_            ' Present screen page
  445.         CurrentYear,_
  446.         CursorColumn,_                ' Cursor location column
  447.         CursorRow,_                ' Cursor location row
  448.         CursorStart,_                ' Cursor Start Line (See Main Module)
  449.         CursorState,_                ' Cursor On (1) or Off (0)
  450.         CursorStop,_                ' Cursor Stop Line (13)
  451.         DI%,_                    ' MhDos2 variable
  452.         DH%,_                    ' MhDos2 variable
  453.         DL%,_                    ' MhDos2 variable
  454.         DateFromDOS$,_                ' Copy of Date$
  455.         DateValidation,_            ' Whether Date/Time is Legal
  456.         DebugRequested,_            ' Whether Command$ is non-null
  457.         Del,_                    ' Delete Key
  458.         DirectoryReturn$,_            ' Current Directory in Program (ASCIIZ)
  459.         DirectorySet$,_            ' Directory To Restore by MhDir (ASCIIZ)
  460.         DirectoryUser$,_            ' User's Current Directory (ASCIIZ)
  461.         DirectReturn,_                ' Direct Return to Clock Screen
  462.         DisplayColumns,_            ' Current number of columns
  463.         DisplayFilename$,_            ' Filename on Clock Screen
  464.         DisplayRows,_                ' Current number of rows
  465.         DOS2x,_                    ' Whether Earlier than DOS 3.0
  466.         DOSBackground,_            ' Original DOS Background Color
  467.         DOSColor,_                ' Original DOS Color Attribute
  468.         DOSCommand$,_                ' Prestored DOS Command for F7
  469.         DOSCursorBit,_                ' CH and 32 from MhDos2 Int 10 Fn 3
  470.         DOSCursorColumn,_            ' Column where User Cursor Is
  471.         DOSCursorPage,_            ' Screen Page for User Screen
  472.         DOSCursorRow,_                ' Row where User Cursor Is
  473.         DOSCursorStart,_            ' Start Scan Line for User Cursor
  474.         DOSCursorState,_            ' DOS Cursor On (1) or Off (0)
  475.         DOSCursorStop,_            ' End Scan Line for User Cursor
  476.         DosEcode%,_                ' MhDos2 variables
  477.         DOSForeground,_            ' Original DOS Foreground Color
  478.         DownArrow$,_                ' Down-Arrow Character
  479.         DriveReturn,_                ' Current Drive in Program
  480.         DriveSet,_                ' Drive to Change to by MhDir
  481.         DriveUser,_                ' Current User's Drive
  482.         Dtaseg                    ' Segment Address
  483.     COMMON SHARED  _
  484.         ES%,_                    ' MhDos2 variable
  485.         EarlyPopDownFailed,_        ' TSR Before Init'd Had Error
  486.         East,_                    ' Right Arrow
  487.         EchoSuppression,_            ' Password Suppression Indicator
  488.         Ecode,_                    ' Mh Error Code
  489.         EditingEvents,_            ' Event Menu Width Flag
  490.         EditingNotes,_                ' Note Menu Width Flag
  491.         EditLineLabel$,_            ' Day Label for Event Menu Line
  492.         EditPagesize,_                ' Size of Event/Note/History Page
  493.         EgaBytes!,_                ' Size of EGA Screen Save
  494.         EgaBytes2%,_                ' Converted integer value of EgaBytes!
  495.         EgaFilename$,_                ' Screen Save File Name (ASCIIN)
  496.         EgaFilename2$,_            ' Screen Save File Name (ASCIIZ)
  497.         EgaFilePath$,_                ' Complete Save File Path (ASCIIN)
  498.         EgaFilePath2$,_            ' Complete Save File Path (ASCIIZ)
  499.         EndKey,_                    ' End Key
  500.         Enter,_                    ' Enter (Return) Key
  501.         EnteredPassword$,_            ' User's Perception of Appt Password
  502.         ErrMsgPlacement,_            ' Screen Row For Error Message Print
  503.         ErrorLine,_                ' Program Line Where Error Occurred
  504.         ErrorLine1$,_                ' Error Message Line 1
  505.         ErrorLine2$,_                ' Error Message Line 2
  506.         ErrorMessageToWrite,_        ' Whether Main Menu to Write Error
  507.         ErrorNumber,_                ' BASIC Error Number
  508.         ErrorSwitch,_                ' Error Condition Flag
  509.         Esc,_                    ' Escape Key
  510.         EventDate$,_                ' Full Date of Event
  511.         EventDateTime$,_            ' Full Date + Time of Event (String)
  512.         EventDay$,_                ' Day of Event
  513.         EventHour$,_                ' Hour of Event
  514.         EventInstructions3        AS STRING*80,_ ' Event Instructions 3
  515.         EventLimRepeat$,_            ' Event Limited Repeat Count
  516.         EventMinute$,_                ' Minute of Event
  517.         EventMonth$,_                ' Month of Event
  518.         EventPageCounter,_            ' Which Page of Events to Change
  519.         EventRepeat$,_                ' Event Repeat Type
  520.         EventSizeCode$,_            ' Event File Format Switch
  521.         EventsScheduled$,_            ' Screened Number of Events Scheduled
  522.         EventsScheduled,_            ' Number of Events Scheduled
  523.         EventTableSize,_            ' Default Number of Events
  524.         EventTableStable,_            ' State of Event Table
  525.         EventText$,_                ' Text of Event
  526.         EventTime$,_                ' Time of Event
  527.         EventtoHistory,_            ' Whether History Write is an Event
  528.         EventValidationError,_        ' Whether Date/Time is Legal Error
  529.         EventYear$,_                ' Year of Event
  530.         EventYear1st2$,_            ' Event 1st 2 digits of Year
  531.         EverResident$,_            ' Ever Popped Down
  532.         ExitKeys,_                ' Allow Exit Keys to Work Immediately
  533.         F1,_                        ' Function Key 1 (Accept Event)
  534.         F2,_                        ' Function Key 2 (Resequence)
  535.         F3,_                        ' Function Key 3 (Event Edit On-Screen)
  536.         F4,_                        ' Function Key 4 (Note Edit On-Screen)
  537.         F5,_                        ' Function Key 5 (Instruction Pop-Back)
  538.         F5HelpRow,_                ' Place for Clock Screen Help Prompt
  539.         F6,_                        ' Function Key 6 (DOS Shell)
  540.         F7,_                        ' Function Key 7 (DOS Prestored Command)
  541.         False$,_                    ' Logical No
  542.         FatalError,_                ' Flag which Causes File Closings
  543.         FileName$,_                ' Mh File Name
  544.         FilenameLength,_            ' Real Length of Appointment File Name
  545.         FilenameShow,_                ' Option to Display Filename
  546.          FilenumAppt,_                ' File number of Appointment File
  547.         FilenumApptSort,_            ' File number of Event Temporary File
  548.         FilenumAuto,_                ' File number of Automatic Start File
  549.         FileNumber,_                ' File number for Mh routines
  550.         FilenumCopy,_                ' File number of ASCII Copy File
  551.         FilenumDOS,_                ' File number of DOS Command File
  552.         FilenumError,_                ' File number of Error Message File
  553.         FilenumExcl,_                ' File number of History Exclude File
  554.         FilenumFig,_                ' File number of Color Choice File
  555.         FilenumHelp,_                ' File number of Help Text File
  556.         FilenumInit,_                ' File number of Initialization File
  557.         FilenumMusic,_                ' File number of Music Choice File
  558.         FilenumNewAppt,_            ' File number of New Appt File
  559.         FilenumOverdue,_            ' File number of Overdue Appts
  560.         FilenumRes,_                ' File number of Stay-Res Option File
  561.         FilenumSer,_                ' File number of Registration Info
  562.         FillLength,_                ' Menu Line Trailing End
  563.         FirstTimeClock,_            ' 1st Time Clock Is Displayed
  564.         FooterAction$,_            ' Note/Event Movement in Footer
  565.         FooterRecall,_                ' Instruction Footer Recall In Progress
  566.         FooterSize,_                ' Size of Clock Footer
  567.         ForceDate,_                ' Force Date/Time Entry On Prog Start
  568.         FromOverduePage,_            ' Return to clock from overflow or not
  569.         GetPath$,_                ' Path to use by MhDir
  570.         HardSnooze,_                ' Prevent snooze from interruption
  571.         HighestValue#,_            ' High Long Value
  572.         HilitColumn,_                ' Screen Column for Hilit Day
  573.         HilitDay$,_                ' Text for Hilit Day
  574.         HilitRow,_                ' Screen Row for Hilit Day
  575.         HistoryBuffer$,_            ' Text to Write to History
  576.         HoldAtEnd,_                ' Input Routine Flag to Not Exit
  577.         HomeKey,_                    ' Home Key
  578.         Hyphen$,_                    ' Literal "-"
  579.         InclHistory,_                ' Numeric of IncludeHistory$
  580.         InclNotes,_                ' Numeric of IncludeNotes$
  581.         IncludeHistory$,_            ' Include History in Print/Copy Flag
  582.         IncludeNotes$,_            ' Include Notes in Print/Copy Flag
  583.         IndexedDay,_
  584.         InHelp,_                    ' Processing Help for KeyStuff
  585.         InitialSound$,_            ' Initial Setting of Sound
  586.         InMenu,_                    ' On a Menu Screen
  587.         InPopDown,_                ' Pop Down In Progress--avoid recursion
  588.         InputResponse$,_            ' Response to Request for Input
  589.         InputString$,_                ' Mh Input String
  590.         Ins,_                    ' Insert Key
  591.         Insrt%,_                    ' Insert State in Cal
  592.         InsertCursorStart,_            ' Top Line of Cursor for Insert Mode
  593.         InsertDOS%,_                ' Insert State in DOS
  594.         InsertPressing%,_            ' Whether Insert Key Being Pressed
  595.         InterruptNumber%,_            ' MhDos2 variable
  596.         JulianDate&,_                ' Returned Julian Date from DayDate
  597.         Kascii,_                    ' ASCII Code of Waiting Key
  598.         KasciiIn,_                ' ASCII Code of Waiting Key MhInStat
  599.         KeyBits,_                    ' Condition of Key Flag Byte
  600.         KeyCursor,_                ' KeyStuff Cursor Move Request
  601.         KeyCursorOff,_                ' KeyStuff Cursor Move/Off Request
  602.         KeyDelayedExit,_            ' Ctrl-Break and Ctrl-Esc Switch
  603.         KeyMaskReset,_                ' Caps and Num Lock Reset Mask
  604.         KeyNumOn,_                ' KeyStuff Turn Numlock On Request
  605.         KeyNumOff,_                ' KeyStuff Turn Numlock Off Request
  606.         KeyShiftTrap,_                ' Key Trap Indicator of Which Trap
  607.         KeySingle,_                ' KeyStuff Single Key Request
  608.         KeyStatus,_                ' KeyStuff Status Request if Changed
  609.         KeyStatusAbs,_             ' KeyStuff Status under All Cases
  610.         Keystroke$,_                ' General Saved Keystroke
  611.         KeyTimerInit,_                ' Timer Display Force Flag
  612.         KeyTrapEnabled,_            ' Enable Editing Key Trap
  613.         KeyWait,_                    ' KeyStuff Wait for Key Request
  614.         Kolor,_                    ' Sub Kolors Argument for Show Routines
  615.         Kscan,_                    ' Scan Code of Waiting Key
  616.         KscanIn,_                    ' Scan Code of Waiting Key MhInStat
  617.         KscanRes,_                ' Kshift for StayResident
  618.         Kshift,_                    ' Shift Code of Waiting Key
  619.         KshiftIn,_                ' Shift Code of Waiting Key MhInStat
  620.         KshiftRes                    ' Kshift for StayResident
  621.     COMMON SHARED  _
  622.         Left,_                    ' State of Left-Arrow Key
  623.         LeftArrow$,_                ' West-Arrow Character
  624.         Length,_                    ' Size of Input Routine Returned Value
  625.         LightTable,_                ' Light Day Pointer
  626.         LimitedsLeft,_                ' Limited Event Count Remaining
  627.         LimSep$,_                    ' Separator in Event Display Line
  628.         LoopCounter,_                ' Counter through Main Timer Loop
  629.         LoopCounterShow,_            ' Whether to Show Loop Counter
  630.         LprintEcode%,_                ' Line Printer Error from MhLprint
  631.         LprintJobOver,_            ' Whether Output Finished (close print)
  632.         LprintTerminate,_            ' Whether User Wants Print Aborted
  633.         MainMenuAuto,_                ' Main Menu Auto
  634.         MainMenuClock,_            ' Main Menu Clock Only
  635.         MainMenuColor,_            ' Main Menu Set Colors
  636.         MainMenuCopy,_                ' Main Menu Copy File
  637.         MainMenuCreate,_            ' Main Menu New File
  638.         MainMenuDate,_                ' Main Menu Change Date/Time
  639.         MainMenuDelete,_            ' Main Menu Delete File
  640.         MainMenuDOS,_                ' Main Menu DOS Session
  641.         MainMenuHelp,_                ' Main Menu Help
  642.         MainMenuLastEntry,_            ' Main Menu Direct Return Position
  643.         MainMenuList,_                ' Main Menu List Files
  644.         MainMenuOptions,_            ' Main Menu Options
  645.         MainMenuPrint,_            ' Main Menu Print File
  646.         MainMenuRow,_                ' Screen Row For Main Menu Start
  647.         MainMenuUse,_                ' Main Menu Use File
  648.         MemoryLeft&,_
  649.         MemoryOK&,_
  650.         MemoryNeeded&,_
  651.         MemoryResident,_            ' Is the Program Memory-Resident ?
  652.         MemoryResidentShell,_        ' Is SrResidentShell In Progress ?
  653.         Menu1,_                    ' Main Menu Choice
  654.         MenuCancelled,_            ' Exited From Menu Mode
  655.         MenuChoice,_                ' Numeric Position of Menu Choice
  656.         MenuColorBack,_            ' Menu Color Background
  657.         MenuColorFore,_            ' Menu Color Foreground
  658.         MenuColumn,_                ' Screen Column for Menu
  659.         MenuEntryChosen,_            ' Enter Key From Menu to Choose
  660.         MenuExit,_                ' Menu Escape Condition Switch
  661.         MenuNormalExit,_            ' No Special Exit Taken
  662.         MenuRecursiveReturn,_        ' Return to Menu after Recursive Use
  663.         MenuRow,_                    ' Screen Row for Menu
  664.         MenuSingleLine,_            ' Reprint only Current Menu Line
  665.         MenuSize,_                ' Number of Menu Entries
  666.         MenuSpecialExit,_            ' Menu Exit other than Escape
  667.         MenuSrOpt,_                ' Stay Res Options Menu Choice
  668.         MenuWidth,_                ' Width of MenuLine
  669.         MessageColumn,_            ' Screen Column for Input Routine
  670.         MessageRow,_                ' Screen Row for Input Routine
  671.         MessageText$,_                ' Text for Input Routine Prompt
  672.         MonoCRT,_                    ' Monochrome Monitor
  673.         MovingClockTick$,_
  674.         N0,_                    ' Numeric
  675.         N1,_                    ' Numeric
  676.         N2,_                    ' Numeric
  677.         N3,_                    ' Numeric
  678.         N4,_                    ' Numeric
  679.         N5,_                    ' Numeric
  680.         N6,_                    ' Numeric
  681.         N7,_                    ' Numeric
  682.         N8,_                    ' Numeric
  683.         N9,_                    ' Numeric
  684.         N10,_                    ' Numeric
  685.         N11,_                    ' Numeric
  686.         N12,_                    ' Numeric
  687.         N13,_                    ' Numeric
  688.         N14,_                    ' Numeric
  689.         N15,_                    ' Numeric
  690.         N16,_                    ' Numeric
  691.         N17,_                    ' Numeric
  692.         N18,_                    ' Numeric
  693.         N19,_                    ' Numeric
  694.         N20,_                    ' Numeric
  695.         N21,_                    ' Numeric
  696.         N22,_                    ' Numeric
  697.         N23,_                    ' Numeric
  698.         N24,_                    ' Numeric
  699.         N25,_                    ' Numeric
  700.         N26,_                    ' Numeric
  701.         N27,_                    ' Numeric
  702.         N28,_                    ' Numeric
  703.         N29,_
  704.         N30,_
  705.         N32,_                    ' Numeric
  706.         N34,_                    ' Numeric
  707.         N38,_
  708.         N39,_                    ' Numeric
  709.         N40,_                    ' Numeric
  710.         N42,_                    ' Numeric
  711.         N43,_                    ' Numeric
  712.         N45,_                    ' Numeric
  713.         N48,_                    ' Numeric
  714.         N49,_                    ' Numeric
  715.         N50,_                    ' Numeric
  716.         N52,_
  717.         N53,_
  718.         N54,_
  719.         N58,_
  720.         N60,_
  721.         N62,_                    ' Numeric
  722.         N63,_                    ' Numeric
  723.         N64,_                    ' Numeric
  724.         N68,_
  725.         N70,_
  726.         N71,_
  727.         N72,_
  728.         N74,_
  729.         N75,_
  730.         N80,_                    ' Numeric
  731.         N99,_                    ' Numeric
  732.         Nm1,_                    ' Numeric
  733.         Nm2,_                    ' Numeric
  734.         Nm3,_                    ' Numeric
  735.         NewGuy,_                    ' New User Indicator for Auto-Help
  736.         No,_                        ' Numeric No
  737.         NoHistEndDefault,_            ' Set History At End
  738.         Noo$,_                    ' Literal "No"
  739.         NormalCalendars,_            ' Normal Calendars are Displayed
  740.         North,_                    ' Up-Arrow Key
  741.         NoteInstructions3    AS STRING*53,_ ' Note Instructions 3
  742.         NoteSize,_                ' Note Window Size on Clock Footer
  743.         NoteSizeCode$,_            ' Note File Format Switch
  744.         NullEvent$,_                ' Event Line with only - - :'s
  745.         NullEventOld$,_            ' Event Line with old format
  746.         Num,_                    ' State of Num from Mh Key Tester
  747.         NumberofEvents,_            ' Maximum Number of Events
  748.         NumberofHotFKeys,_            ' How Many F Keys to Pop Down
  749.         NumberofHotCKeys,_            ' How Many Cntrl/Alt/Shift Combinations
  750.         NumberofNotes,_            ' Maximum Number of Notes
  751.         NumDOS,_                    ' Num State in DOS
  752.         NumHold,_                    ' Num Lock Previous State
  753.         Offset,_                    ' Offset within MhDtaseg
  754.         OldNumberEvents,_            ' Events Before Requested Change
  755.         OldNumberNotes,_            ' Notes Before Requested Change
  756.         OnEditPage,_                ' Flag for Caps/Num Colors
  757.         OnOverduePage,_            ' Flag for Caps/Num Placement
  758.         OnScreen,_                ' On Clock Screen Editing Switch
  759.         OnScreenFirst,_            ' On Screen Editing Instruction Refresh
  760.         OtherCalendars,_            ' Other than Normal Calendars Displayed
  761.         OverdueCount,_                ' Number of Overdue Events to Show
  762.         OverstrikeCursorStart,_        ' Top Line of Cursor For Overstrike
  763.         Partition AS DOUBLE,_        ' Sort Variable
  764.         PathLegalChars$,_            ' Characters valid in BASIC Path Names
  765.         PathLegalLength,_            ' Length of PathLegalChars$
  766.         Pending,_                    ' Number of Minutes for Warning Music
  767.         PgDn,_                    ' Page Down Key
  768.         PgUp,_                    ' Page Up Key
  769.         PoppedUpOverDOS,_            ' Resident and operating over DOS Prompt
  770.         PoppedUpOverProgram,_        ' Resident and operating over Program
  771.         PopWait,_                    ' Delayed Pop Down Flag
  772.         PopWaitHold,_                ' Delayed Pop Down Flag Previous Value
  773.         PreviousDate$,_
  774.         PreviousHour,_
  775.         PreviousMinute,_
  776.         PreviousQuarter,_
  777.         PreviousSecond,_
  778.         PrevQuarterPosition,_
  779.         PrimitiveState,_            ' Whether Startup is Complete
  780.         PrinterLineCount,_            ' How many lines are printed on page
  781.         PrinterLineLimit,_            ' Limit on printed page size
  782.         PrinterPause$,_            ' Whether to stop between printer pages
  783.         PrintingReport,_            ' Printing Report In Progress Switch
  784.         PrintorCopy$,_                ' Print or Copy Appt File Switch
  785.         PriorInsert,_                ' Previous Value of Insert Pressed
  786.         Prnt,_                    ' Print Key
  787.         ProgramVersion$            ' Program Version Number
  788.     COMMON SHARED  _
  789.         ReadBytes,_                ' Number of Bytes Read By Mh Routine
  790.         RedisplayCalendars,_        ' Calendar Refresh Switch
  791.         RedisplayNotesEvents,_        ' Clock Screen Footer Refresh Switch
  792.         RefreshInstructions,_        ' Instruction Refresh Switch
  793.         RegiData$,_                ' Encoded Registration Value
  794.         RegiName$,_                ' User Name
  795.         RegiOK,_                    ' Regi Info Valid
  796.         RegiSerial$,_                ' Serial Number
  797.         Registered,_                ' Whether a Registered Copy
  798.         ReqMenuColumn,_            ' Requested Menu Column
  799.         Rescheduling,_                ' Indicates Rescheduling in Progress
  800.         ResEcode,_                ' Ecode from StayResident
  801.         ResHold,_                    ' Memory-Resident State Change
  802.         ReturnMessage$,_            ' Date/Event Validation Error Message
  803.         ReturnPath$,_                ' Current Drive and Path for DOS Shell
  804.         Rhold,_                    ' Cursor Row Position
  805.         Right,_                    ' State of Right-Arrow Key
  806.         RightArrow$,_                ' East-Arrow Character
  807.         Rows,_                    ' Size of calendar (rows)
  808.         SI%,_                    ' MhDos2 variable
  809.         ScreenBottomsShow,_            ' Option to Display Screen Bottoms
  810.         ScreenColumn,_                ' Screen Column
  811.         ScreenPage,_                ' Current Screen Page Number (0)
  812.         ScreenRow,_                ' Screen Row
  813.         ScreenSize,_                ' Size of Screen Display
  814.         ScreenTag$,_                ' Sound Level or Day Name Screen Label
  815.         Scroll,_                    ' State of Scroll from Mh Key Tester
  816.         ScrollDOS,_                ' State of Scroll in DOS
  817.         SelectedPrinter$,_            ' Selected "W"ANG or "I"BM Printer
  818.         ShellEcode,_                ' Ecode from SrResidentShell or Batch
  819.         SortHigh,_                ' Sort Upper Limit for QuickSort
  820.         SortLow,_                    ' Sort Lower Limit for QuickSort
  821.         SoundLevel,_                ' Sound Choice
  822.         South,_                    ' Down Arrow Key
  823.         SpecialExitAllowed,_        ' Menu Special Exits Allowed
  824.         SpecialExitDelete,_            ' Menu Delete Key For Item Delete
  825.         SpecialExitDisallowed,_        ' Menu Special Exits Not Allowed
  826.         SpecialExitEndKey,_            ' Menu End Key For Last Page
  827.         SpecialExitF2,_            ' Menu F2 For Event Resequencing
  828.         SpecialExitHomeKey,_        ' Menu Home Key For 1st Page
  829.         SpecialExitInsert,_            ' Menu Insert Key For Item Insertion
  830.         SpecialExitPgDn,_            ' Menu Page Down For Next Page
  831.         SpecialExitPgUp,_            ' Menu Page Up For Previous Page
  832.         SrActualSwapPath$,_            ' Real Swap Path
  833.         SrAutoOptions,_            ' Stay Res Options on 1st Pop Try
  834.         SrAutoPopDown,_
  835.         SrAutoPopDownHappened,_
  836.         SrAutoPopDownReady,_
  837.         SrDay,_                    ' Pop Day
  838.         SrDiskSwapped,_            ' Disk Swapping Actually Occurred
  839.         SrDiskSwapping,_            ' Disk Swap Enable.
  840.         SrDontUseEMS,_                ' Disk Swap or EMS Enable
  841.         SrEMS,_                    ' EMS Available If Requested
  842.         SrHotKeyName$,_            ' English Name of Defined Hot Key
  843.         SrHour,_                    ' Pop Hour
  844.         SrKscanHot,_                ' Scan Code of Hot Key for PopUp
  845.         SrKshiftHot,_                ' Shift Code of Hot Key for PopUp
  846.         SrMhIDName,_                ' ID Name of this Program (CAL)
  847.         SrMhIDNumber,_                ' MicroHelp ID For This Program (1006)
  848.         SrMinute,_                ' Pop Minute
  849.         SrMonth,_                    ' Pop Month
  850.         SrOptionsChosen,_            ' Whether Options Ever Set for TSR Mode
  851.         SrPokeCharCode%,_            ' ASCII Code of Pop Up Char for CALPOPUP
  852.         SrPopDateTime,_            ' Pop on Date/Time Flag
  853.         SrPopNormal,_                ' Pop down with auto pop if wanted
  854.         SrPopSpecial,_                ' Pop down with auto pop disabled
  855.         SrPopTime#,_                ' Time to Pop On
  856.         SrPopupOnlyIfScreenSaved,_    ' Don't disturb non-standard screens
  857.         SrScanChoice,_                ' Choice of Hot Key Scan Code in List
  858.         SrSetUserMemCalled,_        ' Whether SETMEM has happened
  859.         SrShellCommand$,_            ' SrResidentShell command less cr
  860.         SrSnowCheck,_                ' Snow Check Mode
  861.         SrSwapPath$,_                ' Path that the "swap" files will write.
  862.         SrSwapPathAdjusted$,_        ' Swap path ending with "\"
  863.         SrWhichFList,_                ' Which F Key List Scan Code is In
  864.         SrYear,_                    ' Pop Year
  865.         StartingHistory,_            ' Appt File Position for History
  866.         StartingNote,_                ' Appt File Position for Notes
  867.         StartupScreen,_            ' On the Startup Screen
  868.         StartupScreenHold,_            ' During Startup Screen (interrupted)
  869.         Subnum,_                    ' Sequence Number of SUB For Error Msg
  870.         SwapEcode,_                ' Disk Swapping Successful Flag
  871.         Tabb,_                    ' Tab Key
  872.         TextSize,_                ' Size of Event Description
  873.         ThisMenuLine,_                ' Number of Current Menu Line
  874.         TimeBlock,_
  875.         TimerDesired,_                ' Whether to Show Timer Box
  876.         TimerDisplaySuppress,_        ' Date/Time On Menu Suppression Switch
  877.         TimerHold!,_                ' Timer Display Hold Value
  878.         TimerSave!,_                ' Timing Signature for Calendars
  879.         TodayBright,_                ' Today's Position Lit
  880.         TodaysDate$,_                ' Today's Date
  881.         TodaysDay,_                ' Today's Day of the Week
  882.         TodaysJulianDate&,_
  883.         True$,_                    ' Logical Yes
  884.         UpArrow$,_                ' Up-Arrow Character
  885.         UpdatingCalauto,_            ' Calauto.Dat Expansion Switch for Msg
  886.         UpdatingCalfig,_            ' Calfig.Dat Expansion Switch for Msg
  887.         UpdatingCalres,_            ' Calres.Dat Creation Flag for Msg
  888.         UseDiskSwap$,_                ' Calres.Dat Use Disk Swapping Flag
  889.         UseEMS$,_                    ' Calres.Dat Use EMS Memory Flag
  890.         UserColumns,_                ' User's number of columns
  891.         UserMode,_                ' User's Video Mode
  892.         UserRows,_                ' User's number of rows 43 or 50-line
  893.         UserPath$,_                ' User's Drive and Directory
  894.         UserPopDateTime$,_            ' Calres.Dat Pop on Date/Time Flag
  895.         UserSavePage,_                ' User Screen Page to Save
  896.         ValidSizes$,_                ' Size Codes For Event/Notes
  897.         Warning$,_                ' Music for Pending Event Warning
  898.         WeekBreak$,_                ' Option to Separate Weeks on Print
  899.         WeekendScheduling$,_        ' Whether Daily Events Span Weekends
  900.         West,_                    ' Left Arrow Key
  901.         WhichColor,_                ' Which Color is Chosen
  902.         WhichEvent,_                ' Which Event is Chosen
  903.         WhichExpansion$,_            ' Expand Events or Expand Notes Flag
  904.         WholeClock,_                ' Whether Whole Clock Screen Is Printed
  905.         WindowInitted,_            ' Whether Window Manager Initialized
  906.         WindowLine$,_                ' Line of Footer to be Displayed
  907.         WindDtaseg,_                ' Location of WindowBuffer
  908.         WriteBytes,_                ' Number of Bytes Written By Mh Routine
  909.         Yes,_                    ' Numeric Yes
  910.         Yess$,_                    ' Literal "Yes"
  911.         Zeroo$,_                    ' Literal "0"
  912.         ZeroLine AS STRING*80        ' Line of ASCII Zeros
  913.     '========================================================================
  914.     '==========================  End of INCLUDE (CAL1.BI)  ==================
  915.     '========================================================================
  916.